home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCsiod / scm / iterate.scm < prev    next >
Encoding:
Text File  |  1993-02-22  |  400 b   |  11 lines
  1. (macro iterate
  2.        (lambda (e)
  3.                (let ((name (cadr e))
  4.                      (initial-bindings (caddr e))
  5.                      (body (cdddr e)))
  6.                     `((rec ,name
  7.                            (lambda
  8.                                   ,(mapcar car initial-bindings)
  9.                                   ,@body))
  10.                            ,@(mapcar cadr initial-bindings)))))
  11.